/[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.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jahn, Thu Sep 22 19:18:37 2011 UTC
# Line 485  c convert to mmol/m2/s Line 485  c convert to mmol/m2/s
485             ELSE             ELSE
486              inputFe(i,j,bi,bj)  = 0. _d 0              inputFe(i,j,bi,bj)  = 0. _d 0
487             ENDIF             ENDIF
488  c light (load as Ein/m2/d; convert to uEin/m2/s)  c light
489             IF ( darwin_PARFile .NE. ' '  ) THEN             IF ( darwin_PARFile .NE. ' '  ) THEN
490              sur_par(i,j,bi,bj)   = bWght*sur_par0(i,j,bi,bj)              sur_par(i,j,bi,bj)   = bWght*sur_par0(i,j,bi,bj)
491       &                         +aWght*sur_par1(i,j,bi,bj)       &                         +aWght*sur_par1(i,j,bi,bj)
492              sur_par(i,j,bi,bj) = sur_par(i,j,bi,bj)*1. _d 6/86400. _d 0  c convert to uEin/m2/s
493                sur_par(i,j,bi,bj) = sur_par(i,j,bi,bj)*darwin_PARFileConv
494             ELSE             ELSE
495              sur_par(i,j,bi,bj)  =  200. _d 0*maskC(i,j,1,bi,bj)              sur_par(i,j,bi,bj)  =  200. _d 0*maskC(i,j,1,bi,bj)
496             ENDIF             ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22