Changeset 5348 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
- Timestamp:
- 2015-06-04T13:10:38+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r5236 r5348 60 60 CONTAINS 61 61 62 SUBROUTINE p4z_opt( kt, jnt )62 SUBROUTINE p4z_opt( kt, knt ) 63 63 !!--------------------------------------------------------------------- 64 64 !! *** ROUTINE p4z_opt *** … … 70 70 !!--------------------------------------------------------------------- 71 71 ! 72 INTEGER, INTENT(in) :: kt, jnt ! ocean time step72 INTEGER, INTENT(in) :: kt, knt ! ocean time step 73 73 ! 74 74 INTEGER :: ji, jj, jk … … 86 86 CALL wrk_alloc( jpi, jpj, jpk, zpar, ze0, ze1, ze2, ze3 ) 87 87 88 IF( jnt == 1 .AND. ln_varpar ) CALL p4z_opt_sbc( kt )88 IF( knt == 1 .AND. ln_varpar ) CALL p4z_opt_sbc( kt ) 89 89 90 90 ! Initialisation of variables used to compute PAR … … 99 99 !CDIR NOVERRCHK 100 100 DO ji = 1, jpi 101 zchl = ( tr n(ji,jj,jk,jpnch) + trn(ji,jj,jk,jpdch) + rtrn ) * 1.e6101 zchl = ( trb(ji,jj,jk,jpnch) + trb(ji,jj,jk,jpdch) + rtrn ) * 1.e6 102 102 zchl = MIN( 10. , MAX( 0.05, zchl ) ) 103 103 irgb = NINT( 41 + 20.* LOG10( zchl ) + rtrn ) … … 214 214 ! 215 215 IF( lk_iomput ) THEN 216 IF( jnt == nrdttrc) THEN216 IF( knt == nrdttrc ) THEN 217 217 IF( iom_use( "Heup" ) ) CALL iom_put( "Heup" , heup(:,: ) * tmask(:,:,1) ) ! euphotic layer deptht 218 218 IF( iom_use( "PARDM" ) ) CALL iom_put( "PARDM", zpar(:,:,:) * tmask(:,:,:) ) ! Photosynthetically Available Radiation
Note: See TracChangeset
for help on using the changeset viewer.