- Timestamp:
- 2018-08-08T17:12:35+02:00 (6 years ago)
- Location:
- branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/TRA
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r7771 r10047 33 33 USE wrk_nemo ! Memory Allocation 34 34 USE timing ! Timing 35 USE phycst ! Physical constants 35 36 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 36 37 USE iom -
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r6486 r10047 134 134 INTEGER :: ierror ! local integer 135 135 ! 136 TYPE(FLD_N) :: sn_qgh ! informations about the geotherm. field to be read 137 CHARACTER(len=256) :: cn_dir ! Root directory for location of ssr files 136 TYPE(FLD_N), DIMENSION (1) :: slf_q ! array of namelist informations on the fields to read 137 TYPE(FLD_N) :: sn_qgh ! informations about the geotherm. field to be read 138 CHARACTER(len=256) :: cn_dir ! Root directory for location of ssr files 138 139 ! 139 140 NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst, sn_qgh, cn_dir … … 173 174 IF(lwp) WRITE(numout,*) ' *** variable geothermal heat flux' 174 175 ! 176 slf_q(1) = sn_qgh 177 ! 175 178 ALLOCATE( sf_qgh(1), STAT=ierror ) 176 179 IF( ierror > 0 ) THEN … … 179 182 ENDIF 180 183 ALLOCATE( sf_qgh(1)%fnow(jpi,jpj,1) ) 181 IF( s n_qgh%ln_tint )ALLOCATE( sf_qgh(1)%fdta(jpi,jpj,1,2) )184 IF( slf_q(1)%ln_tint ) ALLOCATE( sf_qgh(1)%fdta(jpi,jpj,1,2) ) 182 185 ! fill sf_chl with sn_chl and control print 183 CALL fld_fill( sf_qgh, (/ sn_qgh /), cn_dir, 'tra_bbc_init', &186 CALL fld_fill( sf_qgh, slf_q, cn_dir, 'tra_bbc_init', & 184 187 & 'bottom temperature boundary condition', 'nambbc' ) 185 188
Note: See TracChangeset
for help on using the changeset viewer.