- Timestamp:
- 2017-01-23T16:12:59+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r7589 r7599 29 29 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 30 30 USE wrk_nemo ! Memory Allocation 31 USE iom 31 32 USE timing ! Timing 32 33 … … 91 92 ENDDO 92 93 ENDDO 93 CALL iom_put("ahmt_bl b", ztmp)94 CALL iom_put("ahmt_blp", ztmp) 94 95 CALL wrk_dealloc(jpi, jpj, ztmp) 95 96 ENDIF -
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r7582 r7599 91 91 IF( kt == nit000 ) THEN 92 92 !Output the geothermal heat flux once for CMIP6 diagnostics 93 wrk_alloc(jpi, jpj, ztmp) 94 ztmp(:,:) = qgh_trd0(:,:)*rcp_rau0 93 CALL wrk_alloc(jpi, jpj, ztmp) 94 DO jj=1,jpj 95 DO ji=1,jpi 96 ztmp(ji,jj) = qgh_trd0(ji,jj)*rau0_rcp 97 ENDDO 98 ENDDO 95 99 CALL iom_put( 'hfgeou', ztmp ) 96 wrk_dealloc(jpi, jpj, ztmp)100 CALL wrk_dealloc(jpi, jpj, ztmp) 97 101 ENDIF 98 102 -
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
r7582 r7599 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE wrk_nemo ! Memory allocation 33 USE iom 33 34 USE timing ! Timing 34 35 … … 78 79 79 80 #ifdef key_traldf_c2d 80 IF (kt == nit000) THEN 81 CALL iom_put( "aht2D", ahtw) 81 IF (kt == nit000) CALL iom_put( "aht2D", ahtw) 82 82 #endif 83 83
Note: See TracChangeset
for help on using the changeset viewer.