- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r7753 r8882 27 27 USE lib_mpp ! distributed memory computing library 28 28 USE prtctl ! Print control 29 USE wrk_nemo ! Memory Allocation30 29 USE timing ! Timing 31 30 … … 77 76 ! 78 77 INTEGER :: ji, jj ! dummy loop indices 79 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdt78 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrdt ! 3D workspace 80 79 !!---------------------------------------------------------------------- 81 80 ! 82 IF( nn_timing == 1 )CALL timing_start('tra_bbc')81 IF( ln_timing ) CALL timing_start('tra_bbc') 83 82 ! 84 83 IF( l_trdtra ) THEN ! Save the input temperature trend 85 CALL wrk_alloc( jpi,jpj,jpk, ztrdt)84 ALLOCATE( ztrdt(jpi,jpj,jpk) ) 86 85 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 87 86 ENDIF … … 98 97 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 99 98 CALL trd_tra( kt, 'TRA', jp_tem, jptra_bbc, ztrdt ) 100 CALL wrk_dealloc( jpi,jpj,jpk,ztrdt )99 DEALLOCATE( ztrdt ) 101 100 ENDIF 102 101 ! 103 102 IF(ln_ctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 104 103 ! 105 IF( nn_timing == 1 )CALL timing_stop('tra_bbc')104 IF( ln_timing ) CALL timing_stop('tra_bbc') 106 105 ! 107 106 END SUBROUTINE tra_bbc … … 130 129 TYPE(FLD_N) :: sn_qgh ! informations about the geotherm. field to be read 131 130 CHARACTER(len=256) :: cn_dir ! Root directory for location of ssr files 132 ! 131 !! 133 132 NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst, sn_qgh, cn_dir 134 133 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.