Changeset 7107 for branches/2016/dev_r6409_SIMPLIF_2_usrdef
- Timestamp:
- 2016-10-26T15:21:30+02:00 (8 years ago)
- Location:
- branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg
- Files:
-
- 5 deleted
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90
r6951 r7107 87 87 !!---------------------------------------------------------------------- 88 88 !! NEMO/OPA 3.3.1 , NEMO Consortium (2011) 89 !! $Id: domzgr.F90 6 492 2016-04-22 13:04:31Z mathiot$89 !! $Id: domzgr.F90 6827 2016-08-01 13:37:15Z flavoni $ 90 90 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 91 91 !!---------------------------------------------------------------------- … … 488 488 risfdep(:,:)=0.e0 489 489 misfdep(:,:)=1 490 ! 491 ! (ISF) TODO build ice draft netcdf file for isomip and build the corresponding part of code 492 IF( cp_cfg == "isomip" .AND. ln_isfcav ) THEN 493 risfdep(:,:)=200.e0 494 misfdep(:,:)=1 495 ij0 = 1 ; ij1 = 40 496 DO jj = mj0(ij0), mj1(ij1) 497 risfdep(:,jj)=700.0_wp-(gphit(:,jj)+80.0_wp)*125.0_wp 498 END DO 499 WHERE( bathy(:,:) <= 0._wp ) risfdep(:,:) = 0._wp 500 ! 501 ELSEIF ( cp_cfg == "isomip2" .AND. ln_isfcav ) THEN 502 ! 503 risfdep(:,:)=0.e0 504 misfdep(:,:)=1 505 ij0 = 1 ; ij1 = 40 506 DO jj = mj0(ij0), mj1(ij1) 507 risfdep(:,jj)=700.0_wp-(gphit(:,jj)+80.0_wp)*125.0_wp 508 END DO 509 WHERE( bathy(:,:) <= 0._wp ) risfdep(:,:) = 0._wp 510 END IF 490 511 ! 491 512 DEALLOCATE( idta, zdta )
Note: See TracChangeset
for help on using the changeset viewer.