Changeset 8187
- Timestamp:
- 2017-06-19T15:46:10+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90
r8084 r8187 81 81 ! 82 82 REAL(wp), POINTER, DIMENSION(:,:) :: zarea_ssh , zbotpres ! 2D workspace 83 REAL(wp), POINTER, DIMENSION(:,:) :: pe! 2D workspace83 REAL(wp), POINTER, DIMENSION(:,:) :: zpe ! 2D workspace 84 84 REAL(wp), POINTER, DIMENSION(:,:,:) :: zrhd , zrhop ! 3D workspace 85 85 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztsn ! 4D workspace … … 91 91 IF( kt == nit000 ) CALL dia_ar5_init 92 92 93 CALL wrk_alloc( jpi , jpj , zarea_ssh , zbotpres, pe )94 CALL wrk_alloc( jpi , jpj , jpk , zrhd , zrhop )95 CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn )93 CALL wrk_alloc( jpi , jpj , zarea_ssh , zbotpres, zpe ) 94 CALL wrk_alloc( jpi , jpj , jpk , zrhd , zrhop ) 95 CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn ) 96 96 97 97 zarea_ssh(:,:) = area(:,:) * sshn(:,:) … … 206 206 ! Exclude points where rn2 is negative as convection kicks in here and 207 207 ! work is not being done against stratification 208 pe(:,:) = 0._wp208 zpe(:,:) = 0._wp 209 209 IF( lk_zdfddm ) THEN 210 210 DO jk = 2, jpk … … 234 234 END DO 235 235 ENDIF 236 CALL lbc_lnk( pe, 'T', 1._wp)237 CALL iom_put( 'tnpeo', pe)236 CALL lbc_lnk(zpe, 'T', 1._wp) 237 CALL iom_put( 'tnpeo', zpe ) 238 238 ENDIF 239 239 ! 240 CALL wrk_dealloc( jpi , jpj , zarea_ssh , zbotpres, pe )241 CALL wrk_dealloc( jpi , jpj , jpk , zrhd , zrhop )242 CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn )240 CALL wrk_dealloc( jpi , jpj , zarea_ssh , zbotpres, zpe ) 241 CALL wrk_dealloc( jpi , jpj , jpk , zrhd , zrhop ) 242 CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn ) 243 243 ! 244 244 IF( nn_timing == 1 ) CALL timing_stop('dia_ar5')
Note: See TracChangeset
for help on using the changeset viewer.