- Timestamp:
- 2015-06-19T17:52:53+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5240 r5446 598 598 ENDIF 599 599 600 IF( .NOT. l k_cpl ) THEN600 IF( .NOT. ln_cpl ) THEN 601 601 CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping" , "W/m2" , & ! qrp 602 602 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) … … 607 607 ENDIF 608 608 609 IF( l k_cpl .AND. nn_ice <= 1 ) THEN609 IF( ln_cpl .AND. nn_ice <= 1 ) THEN 610 610 CALL histdef( nid_T, "sohefldp", "Surface Heat Flux: Damping" , "W/m2" , & ! qrp 611 611 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) … … 630 630 #endif 631 631 632 IF( l k_cpl .AND. nn_ice == 2 ) THEN632 IF( ln_cpl .AND. nn_ice == 2 ) THEN 633 633 CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature" , "K" , & ! tn_ice 634 634 & jpi, jpj, nh_T, 1 , 1, 1 , -99 , 32, clop, zsto, zout ) … … 785 785 ENDIF 786 786 787 IF( .NOT. l k_cpl ) THEN787 IF( .NOT. ln_cpl ) THEN 788 788 CALL histwrite( nid_T, "sohefldp", it, qrp , ndim_hT, ndex_hT ) ! heat flux damping 789 789 CALL histwrite( nid_T, "sowafldp", it, erp , ndim_hT, ndex_hT ) ! freshwater flux damping … … 791 791 CALL histwrite( nid_T, "sosafldp", it, zw2d , ndim_hT, ndex_hT ) ! salt flux damping 792 792 ENDIF 793 IF( l k_cpl .AND. nn_ice <= 1 ) THEN793 IF( ln_cpl .AND. nn_ice <= 1 ) THEN 794 794 CALL histwrite( nid_T, "sohefldp", it, qrp , ndim_hT, ndex_hT ) ! heat flux damping 795 795 CALL histwrite( nid_T, "sowafldp", it, erp , ndim_hT, ndex_hT ) ! freshwater flux damping … … 807 807 #endif 808 808 809 IF( l k_cpl .AND. nn_ice == 2 ) THEN809 IF( ln_cpl .AND. nn_ice == 2 ) THEN 810 810 CALL histwrite( nid_T, "soicetem", it, tn_ice(:,:,1) , ndim_hT, ndex_hT ) ! surf. ice temperature 811 811 CALL histwrite( nid_T, "soicealb", it, alb_ice(:,:,1), ndim_hT, ndex_hT ) ! ice albedo
Note: See TracChangeset
for help on using the changeset viewer.