- Timestamp:
- 2017-05-17T19:39:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r6486 r8036 44 44 USE wrk_nemo ! Memory Allocation 45 45 USE timing ! Timing 46 USE biaspar ! bias correction variables 46 47 47 48 IMPLICIT NONE … … 84 85 INTEGER, INTENT(in) :: kt ! ocean time-step index 85 86 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 87 REAL(wp), DIMENSION(jpi,jpj,jpk) :: z_rhd_st ! tmp density storage for pressure corr 88 REAL(wp), DIMENSION(jpi,jpj) :: z_gru_st ! tmp ua trends storage for pressure corr 89 REAL(wp), DIMENSION(jpi,jpj) :: z_grv_st ! tmp va trends storage for pressure corr 86 90 !!---------------------------------------------------------------------- 87 91 ! … … 92 96 ztrdu(:,:,:) = ua(:,:,:) 93 97 ztrdv(:,:,:) = va(:,:,:) 98 ENDIF 99 ! 100 IF ( ln_bias .AND. ln_bias_pc_app ) THEN 101 z_rhd_st(:,:,:) = rhd(:,:,:) ! store orig density 102 rhd(:,:,:) = rhd_pc(:,:,:) ! use pressure corrected density 103 z_gru_st(:,:) = gru(:,:) 104 gru(:,:) = gru_pc(:,:) 105 z_grv_st(:,:) = grv(:,:) 106 grv(:,:) = grv_pc(:,:) 94 107 ENDIF 95 108 ! … … 112 125 IF(ln_ctl) CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg - Ua: ', mask1=umask, & 113 126 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 127 ! 128 IF ( ln_bias .AND. ln_bias_pc_app ) THEN 129 rhd(:,:,:) = z_rhd_st(:,:,:) ! restore original density 130 gru(:,:) = z_gru_st(:,:) 131 grv(:,:) = z_grv_st(:,:) 132 ENDIF 114 133 ! 115 134 IF( nn_timing == 1 ) CALL timing_stop('dyn_hpg')
Note: See TracChangeset
for help on using the changeset viewer.