Changeset 3335 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Timestamp:
- 2012-03-30T09:33:25+02:00 (13 years ago)
- Location:
- branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3331 r3335 384 384 !!---------------------------------------------------------------------- 385 385 ! 386 ierr = oce_alloc () ! ocean 387 ierr = ierr + dia_wri_alloc () 386 ierr = dia_wri_alloc () 388 387 ierr = ierr + dom_oce_alloc () ! ocean domain 389 388 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcsas.F90
r3331 r3335 98 98 ssu_m(:,:) = sf_sas(jf_uwd)%fnow(:,:,1) * umask(:,:,1) ! u-velocity 99 99 ssv_m(:,:) = sf_sas(jf_vwd)%fnow(:,:,1) * vmask(:,:,1) ! v-velocity 100 ! 101 tsn(:,:,1,jp_tem) = sst_m(:,:) 102 tsn(:,:,1,jp_sal) = sss_m(:,:) 103 ub (:,:,1 ) = ssu_m(:,:) 104 vb (:,:,1 ) = ssv_m(:,:) 100 105 101 106 IF(ln_ctl) THEN ! print control … … 123 128 INTEGER :: ifpr ! dummy loop indice 124 129 INTEGER :: jfld ! dummy loop arguments 125 INTEGER :: inum, idv, idimv 130 INTEGER :: inum, idv, idimv, jpm ! local integer 126 131 !! 127 132 CHARACTER(len=100) :: cn_dir ! Root directory for location of core files … … 177 182 CALL fld_fill( sf_sas, slf_d, cn_dir, 'sbc_sas_init', 'Data in file', 'namsbc_sas' ) 178 183 ! 184 ! lim code currently uses surface temperature and salinity in tsn array for initialisation 185 ! and ub, vb arrays in ice dynamics 186 ! so allocate enough of arrays to use 187 ! 188 jpm = MAX(jp_tem, jp_sal) 189 ALLOCATE( tsn(jpi,jpj,1,jpm), STAT=ierr0 ) 190 ALLOCATE( ub(jpi,jpj,1) , STAT=ierr1 ) 191 ALLOCATE( vb(jpi,jpj,1) , STAT=ierr2 ) 192 ierr = ierr0 + ierr1 + ierr2 193 IF( ierr > 0 ) THEN 194 CALL ctl_stop('sbc_sas_init: unable to allocate surface arrays') 195 ENDIF 196 ! 179 197 END SUBROUTINE sbc_sas_init 180 198
Note: See TracChangeset
for help on using the changeset viewer.