- Timestamp:
- 2014-02-24T12:24:35+01:00 (10 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r3294 r4510 93 93 DO jn = 1, jptra 94 94 ztrtrd(:,:,:,jn) = tra(:,:,:,jn) - ztrtrd(:,:,:,jn) 95 CALL trd_tra( kt, 'TRC', jn, jptra_trd_ ldf, ztrtrd(:,:,:,jn) )95 CALL trd_tra( kt, 'TRC', jn, jptra_trd_bbl, ztrtrd(:,:,:,jn) ) 96 96 END DO 97 97 CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90
r3793 r4510 320 320 END DO 321 321 322 CALL wrk_ alloc( jpi, jpj, zvlmsk )322 CALL wrk_dealloc( jpi, jpj, zvlmsk ) 323 323 #endif 324 324 ! -
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc.F90
r3425 r4510 88 88 ! 89 89 SELECT CASE( ktrd ) 90 CASE( jptra_trd_xad ) 91 CASE( jptra_trd_yad ) 92 CASE( jptra_trd_zad ) 93 CASE( jptra_trd_ldf ) 94 CASE( jptra_trd_bbl ) 95 CASE( jptra_trd_nsr ) 96 CASE( jptra_trd_zdf ) 97 CASE( jptra_trd_dmp ) 98 CASE( jptra_trd_sms ) 99 CASE( jptra_trd_atf ) 100 CASE( jptra_trd_radb ) 101 CASE( jptra_trd_radn ) 90 CASE( jptra_trd_xad ) ; WRITE (cltra,'("XAD_",4a)') 91 CASE( jptra_trd_yad ) ; WRITE (cltra,'("YAD_",4a)') 92 CASE( jptra_trd_zad ) ; WRITE (cltra,'("ZAD_",4a)') 93 CASE( jptra_trd_ldf ) ; WRITE (cltra,'("LDF_",4a)') 94 CASE( jptra_trd_bbl ) ; WRITE (cltra,'("BBL_",4a)') 95 CASE( jptra_trd_nsr ) ; WRITE (cltra,'("FOR_",4a)') 96 CASE( jptra_trd_zdf ) ; WRITE (cltra,'("ZDF_",4a)') 97 CASE( jptra_trd_dmp ) ; WRITE (cltra,'("DMP_",4a)') 98 CASE( jptra_trd_sms ) ; WRITE (cltra,'("SMS_",4a)') 99 CASE( jptra_trd_atf ) ; WRITE (cltra,'("ATF_",4a)') 100 CASE( jptra_trd_radb ) ; WRITE (cltra,'("RDB_",4a)') 101 CASE( jptra_trd_radn ) ; WRITE (cltra,'("RDN_",4a)') 102 102 END SELECT 103 104 103 cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 104 CALL iom_put( cltra, ptrtrd(:,:,:) ) 105 105 ! 106 106 END IF
Note: See TracChangeset
for help on using the changeset viewer.