Changeset 7227
- Timestamp:
- 2016-11-15T12:28:54+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r7224 r7227 380 380 !! AXY (04/11/16) 381 381 !! 2D var for new CMIP6 diagnostics (behind a key_roam ifdef for simplicity) 382 REAL(wp), POINTER, DIMENSION(:,: ) :: epc100, epcalc100, epn100, epsi100383 382 REAL(wp), POINTER, DIMENSION(:,: ) :: fgco2, intdissic, intdissin, intdissisi, inttalk, o2min, zo2min 384 383 !! … … 388 387 REAL(wp), POINTER, DIMENSION(:,:,:) :: fd_nit3, fd_sil3, fd_car3, fd_cal3 389 388 REAL(wp), POINTER, DIMENSION(:,:,:) :: co33, co3satarag3, co3satcalc3, dcalc3 390 REAL(wp), POINTER, DIMENSION(:,:,:) :: expc3, expn3 , expcalc3, expsi3389 REAL(wp), POINTER, DIMENSION(:,:,:) :: expc3, expn3 391 390 REAL(wp), POINTER, DIMENSION(:,:,:) :: fediss3, fescav3 392 391 REAL(wp), POINTER, DIMENSION(:,:,:) :: migrazp3, migrazd3, megrazp3, migrazd3, migrazz3 … … 996 995 !! 997 996 !! AXY (10/11/16): CMIP6 diagnostics, 2D 998 IF( med_diag%EPC100%dgsave ) THEN999 CALL wrk_alloc( jpi, jpj, epc100 )1000 epc100(:,:) = 0.0 !!1001 ENDIF1002 IF( med_diag%EPCALC100%dgsave ) THEN1003 CALL wrk_alloc( jpi, jpj, epcalc100 )1004 epcalc100(:,:) = 0.0 !!1005 ENDIF1006 IF( med_diag%EPN100%dgsave ) THEN1007 CALL wrk_alloc( jpi, jpj, epn100 )1008 epn100(:,:) = 0.0 !!1009 ENDIF1010 IF( med_diag%EPSI100%dgsave ) THEN1011 CALL wrk_alloc( jpi, jpj, epsi100 )1012 epsi100(:,:) = 0.0 !!1013 ENDIF1014 997 IF( med_diag%FGCO2%dgsave ) THEN 1015 998 CALL wrk_alloc( jpi, jpj, fgco2 ) … … 1085 1068 CALL wrk_alloc( jpi, jpj, jpk, dcalc3 ) 1086 1069 dcalc3(:,:,: ) = 0.0 !! 1070 ENDIF 1071 IF( med_diag%EXPC3%dgsave ) THEN 1072 CALL wrk_alloc( jpi, jpj, jpk, expc3 ) 1073 expc3(:,:,: ) = 0.0 !! 1074 ENDIF 1075 IF( med_diag%EXPN3%dgsave ) THEN 1076 CALL wrk_alloc( jpi, jpj, jpk, expn3 ) 1077 expn3(:,:,: ) = 0.0 !! 1087 1078 ENDIF 1088 1079 IF( med_diag%FEDISS3%dgsave ) THEN … … 4786 4777 # endif 4787 4778 IF( med_diag%SDT__100%dgsave ) THEN 4788 4779 CALL iom_put( "SDT__100" , fslownflux ) 4789 4780 ENDIF 4790 4781 IF( med_diag%REG__100%dgsave ) THEN 4791 4782 CALL iom_put( "REG__100" , fregen2d ) 4792 4783 ENDIF 4793 4784 IF( med_diag%FDT__100%dgsave ) THEN 4794 4785 CALL iom_put( "FDT__100" , ffastn ) 4795 4786 ENDIF 4796 4787 IF( med_diag%RG__100F%dgsave ) THEN 4797 4788 CALL iom_put( "RG__100F" , fregenfast ) 4798 4789 ENDIF 4799 4790 IF( med_diag%FDS__100%dgsave ) THEN 4800 4791 CALL iom_put( "FDS__100" , ffastsi ) 4801 4792 ENDIF 4802 4793 IF( med_diag%RGS_100F%dgsave ) THEN 4803 4794 CALL iom_put( "RGS_100F" , fregenfastsi ) 4804 4795 ENDIF 4805 4796 IF( med_diag%FE_0100%dgsave ) THEN 4806 4797 CALL iom_put( "FE_0100" , xFree ) 4807 4798 ENDIF 4808 4799 # if defined key_roam 4809 4800 IF( med_diag%RR_0100%dgsave ) THEN 4810 4801 CALL iom_put( "RR_0100" , ffastca2d ) 4811 4802 ENDIF 4812 4803 IF( med_diag%SDC__100%dgsave ) THEN 4813 4804 CALL iom_put( "SDC__100" , fslowcflux ) 4814 4805 ENDIF 4806 IF( med_diag%epC100%dgsave ) THEN 4807 zw2d(:,:) = fslowcflux + ffastc 4808 CALL iom_put( "epC100" , zw2d ) 4809 ENDIF 4810 IF( med_diag%epCALC100%dgsave ) THEN 4811 CALL iom_put( "epCALC100" , ffastca ) 4812 ENDIF 4813 IF( med_diag%epN100%dgsave ) THEN 4814 zw2d(:,:) = fslownflux + ffastn 4815 CALL iom_put( "epN100" , zw2d ) 4816 ENDIF 4817 IF( med_diag%epSI100%dgsave ) THEN 4818 CALL iom_put( "epSI100" , ffastsi ) 4819 ENDIF 4815 4820 ELSE IF (jk.eq.i0150) THEN 4816 4821 # if defined key_debug_medusa … … 4925 4930 !CALL iom_put( "DETFLUX3" , ftot_n ) 4926 4931 ENDIF 4932 # if defined key_roam 4933 IF( med_diag%EXPC3%dgsave ) THEN 4934 expc3(:,:,jk) = fslowcflux(:,:) + ffastc(:,:) 4935 ENDIF 4936 IF( med_diag%EXPN3%dgsave ) THEN 4937 expn3(:,:,jk) = fslownflux(:,:) + ffastn(:,:) 4938 ENDIF 4939 # endif 4927 4940 ENDIF 4928 4941 !! CLOSE vertical loop … … 5811 5824 IF( med_diag%CO3SATCALC3%dgsave ) THEN 5812 5825 CALL iom_put( "CO3SATCALC3" , f3_omcal ) 5826 ENDIF 5827 IF( med_diag%EXPC3%dgsave ) THEN 5828 CALL iom_put( "EXPC3" , expc3 ) 5829 CALL wrk_dealloc( jpi, jpj, jpk, expc3 ) 5830 ENDIF 5831 IF( med_diag%EXPN3%dgsave ) THEN 5832 CALL iom_put( "EXPN3" , expn3 ) 5833 CALL wrk_dealloc( jpi, jpj, jpk, expn3 ) 5813 5834 ENDIF 5814 5835 IF( med_diag%DCALC3%dgsave ) THEN
Note: See TracChangeset
for help on using the changeset viewer.