/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_fields_load.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_fields_load.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jahn, Thu Sep 22 19:18:37 2011 UTC revision 1.3 by jahn, Thu Sep 22 19:23:31 2011 UTC
# Line 481  c or use offline fields if provided Line 481  c or use offline fields if provided
481              inputFe(i,j,bi,bj)   = bWght*featmos0(i,j,bi,bj)              inputFe(i,j,bi,bj)   = bWght*featmos0(i,j,bi,bj)
482       &                            +aWght*featmos1(i,j,bi,bj)       &                            +aWght*featmos1(i,j,bi,bj)
483  c convert to mmol/m2/s  c convert to mmol/m2/s
484              inputFe(i,j,bi,bj)   = 1000.d0*inputFe(i,j,bi,bj)              inputFe(i,j,bi,bj) = inputFe(i,j,bi,bj)*darwin_ironFileConv
485             ELSE             ELSE
486              inputFe(i,j,bi,bj)  = 0. _d 0              inputFe(i,j,bi,bj)  = 0. _d 0
487             ENDIF             ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22