Changeset 11666
 Timestamp:
 20191009T12:17:05+02:00 (4 years ago)
 Location:
 NEMO/branches/2019/dev_r11085_ASINTER05_Brodeau_Advanced_Bulk/src/OCE/SBC
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/branches/2019/dev_r11085_ASINTER05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p0.F90
r11631 r11666 70 70 IF ( l_use_wl ) THEN 71 71 ierr = 0 72 PRINT *, ' *** coare3p0_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj73 72 ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr ) 74 73 !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of Tau_ac and Qnt_ac failed!' … … 76 75 Qnt_ac(:,:) = 0._wp 77 76 H_wl(:,:) = H_wl_max 78 PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!'79 77 END IF 80 78 !! 81 79 IF ( l_use_cs ) THEN 82 80 ierr = 0 83 PRINT *, ' *** coare3p0_init: CS => allocating delta_vl :', jpi,jpj84 81 ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr ) 85 82 !IF( ierr > 0 ) STOP ' COARE3P0_INIT => allocation of delta_vl and Qnt_ac failed!' 86 83 delta_vl(:,:) = 0.001_wp ! First guess of zdelta [m] 87 PRINT *, ' *** delta_vl allocated!'88 84 END IF 89 85 END SUBROUTINE coare3p0_init 
NEMO/branches/2019/dev_r11085_ASINTER05_Brodeau_Advanced_Bulk/src/OCE/SBC/sbcblk_algo_coare3p6.F90
r11631 r11666 70 70 IF ( l_use_wl ) THEN 71 71 ierr = 0 72 PRINT *, ' *** coare3p6_init: WL => allocating Tau_ac, Qnt_ac, and H_wl :', jpi,jpj73 72 ALLOCATE ( Tau_ac(jpi,jpj) , Qnt_ac(jpi,jpj), H_wl(jpi,jpj), STAT=ierr ) 74 73 !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of Tau_ac and Qnt_ac failed!' … … 76 75 Qnt_ac(:,:) = 0._wp 77 76 H_wl(:,:) = H_wl_max 78 PRINT *, ' *** Tau_ac , Qnt_ac, and H_wl allocated!'79 77 END IF 80 78 !! 81 79 IF ( l_use_cs ) THEN 82 80 ierr = 0 83 PRINT *, ' *** coare3p6_init: CS => allocating delta_vl :', jpi,jpj84 81 ALLOCATE ( delta_vl(jpi,jpj), STAT=ierr ) 85 82 !IF( ierr > 0 ) STOP ' COARE3P6_INIT => allocation of delta_vl and Qnt_ac failed!' 86 83 delta_vl(:,:) = 0.001_wp ! First guess of zdelta [m] 87 PRINT *, ' *** delta_vl allocated!'88 84 END IF 89 85 END SUBROUTINE coare3p6_init
Note: See TracChangeset
for help on using the changeset viewer.