/[MITgcm]/MITgcm/pkg/bling/bling_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/bling/bling_init_varia.F

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

revision 1.1 by mmazloff, Thu May 19 20:29:26 2016 UTC revision 1.2 by mmazloff, Mon Sep 12 20:00:28 2016 UTC
# Line 44  C--   Initialise global variables Line 44  C--   Initialise global variables
44              omegaAr(i,j,k,bi,bj)    = 0. _d 0              omegaAr(i,j,k,bi,bj)    = 0. _d 0
45              irr_mem(i,j,k,bi,bj)    = 1. _d 0              irr_mem(i,j,k,bi,bj)    = 1. _d 0
46              chl(i,j,k,bi,bj)        = 0. _d 0              chl(i,j,k,bi,bj)        = 0. _d 0
47              P_sm(i,j,k,bi,bj)       = 4. _d -7 / permil              phyto_sm(i,j,k,bi,bj)   = 4. _d -7 / permil
48              P_lg(i,j,k,bi,bj)       = 4. _d -7 / permil              phyto_lg(i,j,k,bi,bj)   = 4. _d -7 / permil
49              P_diaz(i,j,k,bi,bj)     = 4. _d -7 / permil              phyto_diaz(i,j,k,bi,bj) = 4. _d -7 / permil
50            ENDDO            ENDDO
51           ENDDO           ENDDO
52          ENDDO          ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22