- Timestamp:
- 2013-06-13T12:52:53+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r3917 r3919 36 36 REAL(wp) :: ztra, zabe1, zabe2, zbtr 37 37 REAL(wp), POINTER, DIMENSION(:,:) :: localviscsponge 38 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: trbdiff, ztru, ztrv, ztab 4d38 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: trbdiff, ztru, ztrv, ztab 39 39 40 40 #if defined SPONGE_TOP 41 41 CALL wrk_alloc( jpi, jpj, localviscsponge ) 42 CALL wrk_alloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab 4d)42 CALL wrk_alloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab ) 43 43 44 44 timecoeff = REAL(Agrif_NbStepint(),wp)/Agrif_rhot() … … 46 46 Agrif_SpecialValue=0. 47 47 Agrif_UseSpecialValue = .TRUE. 48 ztab 4d= 0.e049 CALL Agrif_Bc_Variable(ztab 4d, tra_id,calledweight=timecoeff,procname=interptrn)48 ztab = 0.e0 49 CALL Agrif_Bc_Variable(ztab, tra_id,calledweight=timecoeff,procname=interptrn) 50 50 Agrif_UseSpecialValue = .FALSE. 51 51 52 trbdiff(:,:,:,:) = trb(:,:,:,:) - ztab 4d(:,:,:,:)52 trbdiff(:,:,:,:) = trb(:,:,:,:) - ztab(:,:,:,:) 53 53 54 54 spongearea = 2 + 2 * Agrif_irhox() … … 147 147 148 148 CALL wrk_dealloc( jpi, jpj, localviscsponge ) 149 CALL wrk_dealloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab 4d)149 CALL wrk_dealloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab ) 150 150 151 151 #endif
Note: See TracChangeset
for help on using the changeset viewer.