Ignore:
Timestamp:
2020-07-30T12:08:31+02:00 (7 weeks ago)
Author:
jwhile
Message:

Merged in trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_1d_bugfixes_tocommit/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r10302 r13354  
    368368            mld_max(:,:)   = 0.0 
    369369         ENDIF 
     370         IF( iom_varid( numrtr, 'pgrow_avg_3d', ldstop = .FALSE. ) > 0 ) THEN 
     371            IF(lwp) WRITE(numout,*) ' MEDUSA pgrow_avg present - reading in ...' 
     372            CALL iom_get( numrtr, jpdom_autoglo, 'pgrow_avg_3d',  pgrow_avg_3d(:,:,:)  ) 
     373            CALL iom_get( numrtr, jpdom_autoglo, 'ploss_avg_3d',  ploss_avg_3d(:,:,:)  ) 
     374            CALL iom_get( numrtr, jpdom_autoglo, 'phyt_avg_3d',   phyt_avg_3d(:,:,:)   ) 
     375         ELSE 
     376            IF(lwp) WRITE(numout,*) ' MEDUSA pgrow_avg_3d absent - setting to zero ...' 
     377            pgrow_avg_3d(:,:,:) = 0.0 
     378            ploss_avg_3d(:,:,:) = 0.0 
     379            phyt_avg_3d(:,:,:)  = 0.0 
     380         ENDIF 
    370381      ENDIF 
    371382 
     
    553564         CALL iom_rstput( kt, nitrst, numrtw, 'phyt_avg',  phyt_avg(:,:)  ) 
    554565         CALL iom_rstput( kt, nitrst, numrtw, 'mld_max',   mld_max(:,:)   ) 
     566         CALL iom_rstput( kt, nitrst, numrtw, 'pgrow_avg_3d', pgrow_avg_3d(:,:,:) ) 
     567         CALL iom_rstput( kt, nitrst, numrtw, 'ploss_avg_3d', ploss_avg_3d(:,:,:) ) 
     568         CALL iom_rstput( kt, nitrst, numrtw, 'phyt_avg_3d',  phyt_avg_3d(:,:,:)  ) 
    555569      ENDIF 
    556570!! 
Note: See TracChangeset for help on using the changeset viewer.