Changeset 12280 for NEMO/trunk/src/TOP
- Timestamp:
- 2019-12-21T11:42:44+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/TOP
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zprod.F90
r12276 r12280 89 89 ! Allocate temporary workspace 90 90 ! 91 zprorcan(:,:, jpk) = 0._wp ; zprorcad(:,:,jpk) = 0._wp ; zprofed (:,:,jpk) = 0._wp92 zprofen (:,:, jpk) = 0._wp ; zysopt (:,:,jpk) = 0._wp93 zpronewn(:,:, jpk) = 0._wp ; zpronewd(:,:,jpk) = 0._wp ; zprdia (:,:,jpk) = 0._wp94 zprbio (:,:, jpk) = 0._wp ; zprdch (:,:,jpk) = 0._wp ; zprnch (:,:,jpk) = 0._wp95 zmxl_fac(:,:, jpk) = 0._wp ; zmxl_chl(:,:,jpk) = 0._wp91 zprorcan(:,:,:) = 0._wp ; zprorcad(:,:,:) = 0._wp ; zprofed (:,:,:) = 0._wp 92 zprofen (:,:,:) = 0._wp ; zysopt (:,:,:) = 0._wp 93 zpronewn(:,:,:) = 0._wp ; zpronewd(:,:,:) = 0._wp ; zprdia (:,:,:) = 0._wp 94 zprbio (:,:,:) = 0._wp ; zprdch (:,:,:) = 0._wp ; zprnch (:,:,:) = 0._wp 95 zmxl_fac(:,:,:) = 0._wp ; zmxl_chl(:,:,:) = 0._wp 96 96 97 97 ! Computation of the optimal production … … 320 320 ! 321 321 IF( ln_ligand ) THEN 322 zpligprod1(:,:, jpk) = 0._wp ; zpligprod2(:,:,jpk) = 0._wp322 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 323 323 DO jk = 1, jpkm1 324 324 DO jj = 1, jpj … … 351 351 CALL iom_put( "PFeN" , zprofen(:,:,:) * zfact * tmask(:,:,:) ) ! biogenic iron production by nanophyto 352 352 CALL iom_put( "PFeD" , zprofed(:,:,:) * zfact * tmask(:,:,:) ) ! biogenic iron production by diatomes 353 CALL iom_put( "LPRODP" , zpligprod1(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 354 CALL iom_put( "LDETP" , zpligprod2(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 353 IF( ln_ligand ) THEN 354 CALL iom_put( "LPRODP" , zpligprod1(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 355 CALL iom_put( "LDETP" , zpligprod2(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 356 ENDIF 355 357 CALL iom_put( "Mumax" , zprmaxn(:,:,:) * tmask(:,:,:) ) ! Maximum growth rate 356 358 CALL iom_put( "MuN" , zprbio(:,:,:) * xlimphy(:,:,:) * tmask(:,:,:) ) ! Realized growth rate for nanophyto -
NEMO/trunk/src/TOP/PISCES/P4Z/p5zprod.F90
r12277 r12280 98 98 IF( ln_timing ) CALL timing_start('p5z_prod') 99 99 ! 100 zprorcan(:,:, jpk) = 0._wp ; zprorcap(:,:,jpk) = 0._wp ; zprorcad(:,:,jpk) = 0._wp101 zcroissn(:,:, jpk) = 0._wp ; zcroissp(:,:,jpk) = 0._wp ; zcroissd(:,:,jpk) = 0._wp102 zprofed (:,:, jpk) = 0._wp ; zprofep (:,:,jpk) = 0._wp ; zprofen (:,:,jpk) = 0._wp103 zpronewn(:,:, jpk) = 0._wp ; zpronewp(:,:,jpk) = 0._wp ; zpronewd(:,:,jpk) = 0._wp104 zproregn(:,:, jpk) = 0._wp ; zproregp(:,:,jpk) = 0._wp ; zproregd(:,:,jpk) = 0._wp105 zpropo4n(:,:, jpk) = 0._wp ; zpropo4p(:,:,jpk) = 0._wp ; zpropo4d(:,:,jpk) = 0._wp106 zprdia (:,:, jpk) = 0._wp ; zprpic (:,:,jpk) = 0._wp ; zprbio (:,:,jpk) = 0._wp107 zprodopn(:,:, jpk) = 0._wp ; zprodopp(:,:,jpk) = 0._wp ; zprodopd(:,:,jpk) = 0._wp108 zysopt (:,:, jpk) = 0._wp109 zrespn (:,:, jpk) = 0._wp ; zrespp (:,:,jpk) = 0._wp ; zrespd (:,:,jpk) = 0._wp100 zprorcan(:,:,:) = 0._wp ; zprorcap(:,:,:) = 0._wp ; zprorcad(:,:,:) = 0._wp 101 zcroissn(:,:,:) = 0._wp ; zcroissp(:,:,:) = 0._wp ; zcroissd(:,:,:) = 0._wp 102 zprofed (:,:,:) = 0._wp ; zprofep (:,:,:) = 0._wp ; zprofen (:,:,:) = 0._wp 103 zpronewn(:,:,:) = 0._wp ; zpronewp(:,:,:) = 0._wp ; zpronewd(:,:,:) = 0._wp 104 zproregn(:,:,:) = 0._wp ; zproregp(:,:,:) = 0._wp ; zproregd(:,:,:) = 0._wp 105 zpropo4n(:,:,:) = 0._wp ; zpropo4p(:,:,:) = 0._wp ; zpropo4d(:,:,:) = 0._wp 106 zprdia (:,:,:) = 0._wp ; zprpic (:,:,:) = 0._wp ; zprbio (:,:,:) = 0._wp 107 zprodopn(:,:,:) = 0._wp ; zprodopp(:,:,:) = 0._wp ; zprodopd(:,:,:) = 0._wp 108 zysopt (:,:,:) = 0._wp 109 zrespn (:,:,:) = 0._wp ; zrespp (:,:,:) = 0._wp ; zrespd (:,:,:) = 0._wp 110 110 111 111 ! Computation of the optimal production … … 443 443 ! 444 444 IF( ln_ligand ) THEN 445 zpligprod1(:,:, jpk) = 0._wp ; zpligprod2(:,:,jpk) = 0._wp445 zpligprod1(:,:,:) = 0._wp ; zpligprod2(:,:,:) = 0._wp 446 446 DO jk = 1, jpkm1 447 447 DO jj = 1, jpj … … 477 477 CALL iom_put( "PFeN" , zprofen(:,:,:) * zfact * tmask(:,:,:) ) ! biogenic iron production by nanophyto 478 478 CALL iom_put( "PFeD" , zprofed(:,:,:) * zfact * tmask(:,:,:) ) ! biogenic iron production by diatomes 479 CALL iom_put( "LPRODP" , zpligprod1(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 480 CALL iom_put( "LDETP" , zpligprod2(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 479 IF( ln_ligand ) THEN 480 CALL iom_put( "LPRODP" , zpligprod1(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 481 CALL iom_put( "LDETP" , zpligprod2(:,:,:) * 1e9 * zfact * tmask(:,:,:) ) 482 ENDIF 481 483 CALL iom_put( "Mumax" , zprmaxn(:,:,:) * tmask(:,:,:) ) ! Maximum growth rate 482 484 CALL iom_put( "MuP" , zprpic(:,:,:) * xlimpic(:,:,:) * tmask(:,:,:) ) ! Realized growth rate for picophyto -
NEMO/trunk/src/TOP/trcwri.F90
r10068 r12280 46 46 IF( ln_timing ) CALL timing_start('trc_wri') 47 47 ! 48 IF( l_offline .AND. kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 49 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 50 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 51 WRITE(inum,*) clhstnam 52 CLOSE(inum) 48 IF( l_offline ) THEN ! WRITE root name in date.file for use by postpro 49 IF( kt == nittrc000 .AND. lwp ) THEN ! WRITE root name in date.file for use by postpro 50 CALL dia_nam( clhstnam, nn_writetrc,' ' ) 51 CALL ctl_opn( inum, 'date.file', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 52 WRITE(inum,*) clhstnam 53 CLOSE(inum) 54 ENDIF 55 ! Output of initial vertical scale factor 56 CALL iom_put("e3t_0", e3t_0(:,:,:) ) 57 CALL iom_put("e3u_0", e3u_0(:,:,:) ) 58 CALL iom_put("e3v_0", e3v_0(:,:,:) ) 59 ! 60 CALL iom_put( "e3t" , e3t_n(:,:,:) ) 61 CALL iom_put( "e3u" , e3u_n(:,:,:) ) 62 CALL iom_put( "e3v" , e3v_n(:,:,:) ) 63 ! 53 64 ENDIF 54 65 ! write the tracer concentrations in the file
Note: See TracChangeset
for help on using the changeset viewer.